home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
013
/
loz.bas
< prev
next >
Wrap
BASIC Source File
|
1995-03-17
|
330b
|
12 lines
10 scnclr
20 dim loz%(12)
30 for i=0 to 11: read loz%(i):next
40 restore
50 ask mouse x%, y%, b%
60 if b% = 0 goto 50
70 for i%=0 to 10 step 2: loz%(i%)=loz%(i%)+x%: next
80 for i%=1 to 11 step 2: loz%(i%)=loz%(i%)+y%: next
90 mat area 6,loz%()
100 goto 30
110 data 10,0,20,10,20,30,10,40,0,30,0,10